home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)th.d64 / firstdial3 print (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  585b  |  19 lines
  1. 0 POKE53280,0:POKE53281,0:PRINTCHR$(14);"[147]  [196]UMPER BY [210]ICHARD AND [196]AVID [194]RADLEY"
  2. 1 FORI=1TO38:PRINT"-";:NEXTI:PRINT:FORI=1TO5000:NEXTI
  3. 2 PRINT"[196]O [217]OU [200]AVE [193] 1525 OR [205][208][211]-801?":GETBS$:IFBS$=""GOTO2
  4. 3 IFBS$="Y"THENOPEN4,4,7:Q=1:PRINT"[217]ES!"
  5. 4 IFQ<>1THENPRINT"[206]O!"
  6. 5 PRINT"[201]S YOUR PRINTER READY?":GETBS$
  7. 6 IFBS$=""THEN5
  8. 7 IFBS$="Y"THENPRINT"[217]ES!":GOTO9
  9. 8 PRINT"[206]O!":END
  10. 9 FORI=1TO2500:NEXT:PRINT"[147]"
  11. 10 OPEN1,8,3,"FIRSTDIAL3 DOC,S,R"
  12. 15 IFQ<>1THENOPEN4,4
  13. 20 GET#1,A$
  14. 21 IFA$=CHR$(34)THENA$="":GOTO35
  15. 25 IFST<>0THENCLOSE1:END
  16. 30 PRINTA$;
  17. 35 PRINT#4,A$;
  18. 40 GOTO20
  19.